

Do Until WScript.StdIn.AtEndOfStream
    strLine = WScript.StdIn.ReadLine
    body = body + strLine + vbCrLf
Loop

Return = objShell.Run("e:\scripts\java\dailyreports.cmd " + body), 0, true)